Shocking The Web CD-ROM/SHOCK_CD.ISO/mac/Chapter Tutorials/ch06.Media/ScaleableText/sCaLeaBl.dcr/00020.ls

Text File | 1996-12-03 | 724 b | 36 lines

global spriteChannel

on startMovie
  puppsOn()
  set spriteChannel to 10
end

on idle
  if the height of sprite spriteChannel = 12 then
    set the height of sprite spriteChannel to the height of sprite spriteChannel * 3
    set the width of sprite spriteChannel to the width of sprite spriteChannel * 3
  else
    set the height of sprite spriteChannel to 12
    set the width of sprite spriteChannel to 6
  end if
  set spriteChannel to random(22)
end

on puppsOn
  repeat with x = 10 to 22
    puppetSprite(x, 1)
  end repeat
end

on puppsOff
  repeat with x = 10 to 22
    puppetSprite(x, 0)
  end repeat
end

on waitfor seconds
  set now to the timer
  repeat while the timer < (now + (seconds * 60))
  end repeat
end